home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1085.arc / P1.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-27  |  1KB  |  47 lines
  1. program p1;   {sample program to check operation of features in include files}
  2. const nsize = 8;
  3. type   pointlist = array[1..nsize] of integer;
  4.  
  5. var   j: ^integer; i,k,n,a,b,c,d : integer;
  6.     points : pointlist;
  7.     st : string[255];
  8.  
  9. {$iB:GSXWORK.INC}
  10. {$iB:GSXLINE.INC}
  11. {$iB:GSXMARK.INC}
  12. {$iB:GSXGDP.INC}
  13. {$iB:GSXFILL.INC}
  14. {$iB:GSXCOLOR.INC}
  15. {$iB:GSXTEXT.INC}
  16.  
  17. begin
  18.    write('Enter workstation number > ');  readln(i); writeln;
  19.    write('Enter fill color > '); readln(k); writeln;
  20.    write('Fill style > '); readln(n); writeln;
  21.    openstation(i);
  22.    setfillcolor(k,k);
  23.    setfillstyle(n);
  24.    setfillpattern(k+2,k);
  25.    setfillhatch(k+1,k);
  26.    bar(1000,1000,12000,12000);
  27.    points[1] := 14000; points[2] := 14000; points[3]:=30000; points[4]:=14000;
  28.    points[5]:= 30000; points[6] := 30000; points[7] :=14000; points[8]:=30000;
  29.    setlinecolor(2,i);
  30.    setlinewidth(3000,n);
  31.    setlinetype(6,i);
  32.    polyline(4,addr(points));
  33.    setmarkercolor(3,i);
  34.    setmarkertype(5,i);
  35.    polymarker(4,addr(points));
  36. {   arc(10000, 20000, 20000, 0, 900); }  {current driver does not support arc}
  37.    setfillcolor(4,i);
  38.    circle(20000, 20000, 5000);
  39.    settextheight(3000,a,b,c,d);
  40.    setfont(0,k);
  41.    st := 'hello everybody';
  42.    showtext(st,length(st),1000,20000);
  43.    readln;
  44.    clearstation;
  45.    closestation
  46. end.
  47.